(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     38636,       1046]
NotebookOptionsPosition[     36395,        976]
NotebookOutlinePosition[     36839,        995]
CellTagsIndexPosition[     36796,        992]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:53d8\:6362", "Chapter"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{
  "(*", "\:5b9a\:4e49\:4e00\:4e2a\:56fe\:5f62\:5750\:6807", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p1", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0.4", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p3", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0.4", ",", "0.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p4", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0.4"}], "}"}]}], ";"}]}], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[CellGroupData[{

Cell["\:7f29\:653e", "Subchapter"],

Cell[TextData[StyleBox["\:6839\:636e\:77e9\:9635\:4e58\:6cd5\:53ef\:4ee5\:77e5\
\:9053\:7f29\:653e\:77e9\:9635\:5c31\:662f\:5de6\:8fb9\:7684\:5bf9\:89d2\:9635\
", "Text"]], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"a", "0"},
       {"0", "b"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ".", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"x"},
       {"y"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"a", " ", "x"}]},
     {
      RowBox[{"b", " ", "y"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ScaleTransform", "[", 
    RowBox[{"v_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"n", "0"},
         {"0", "n"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ".", 
     TagBox["v",
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p2", ",", "p3"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p3", ",", "p4"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p4", ",", "p1"}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
       "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ScaleTransform", "[", 
           RowBox[{"p1", ",", "n"}], "]"}], ",", 
          RowBox[{"ScaleTransform", "[", 
           RowBox[{"p2", ",", "n"}], "]"}]}], "}"}], "]"}], ",", "Red", ",", 
       "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ScaleTransform", "[", 
           RowBox[{"p2", ",", "n"}], "]"}], ",", 
          RowBox[{"ScaleTransform", "[", 
           RowBox[{"p3", ",", "n"}], "]"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ScaleTransform", "[", 
           RowBox[{"p3", ",", "n"}], "]"}], ",", 
          RowBox[{"ScaleTransform", "[", 
           RowBox[{"p4", ",", "n"}], "]"}]}], "}"}], "]"}], ",", "Red", ",", 
       "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ScaleTransform", "[", 
           RowBox[{"p4", ",", "n"}], "]"}], ",", 
          RowBox[{"ScaleTransform", "[", 
           RowBox[{"p1", ",", "n"}], "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0.8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.8"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]",
     "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "2", ",", "\"\<\:500d\:6570\>\""}], "}"}], ",", "0", 
     ",", "2"}], "}"}]}], "]"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]]
}, Open  ]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 0.8280000000000001, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`n$$], 2, "\:500d\:6570"}, 0, 2}}, Typeset`size$$ = {
    450., {220., 227.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`n$47559$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$47559$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{Thick, 
         Line[{$CellContext`p1, $CellContext`p2}], Thick, 
         Line[{$CellContext`p2, $CellContext`p3}], Thick, 
         Line[{$CellContext`p3, $CellContext`p4}], Thick, 
         Line[{$CellContext`p4, $CellContext`p1}], Red, Thick, 
         Line[{
           $CellContext`ScaleTransform[$CellContext`p1, $CellContext`n$$], 
           $CellContext`ScaleTransform[$CellContext`p2, $CellContext`n$$]}], 
         Red, Thick, 
         Line[{
           $CellContext`ScaleTransform[$CellContext`p2, $CellContext`n$$], 
           $CellContext`ScaleTransform[$CellContext`p3, $CellContext`n$$]}], 
         Red, Thick, 
         Line[{
           $CellContext`ScaleTransform[$CellContext`p3, $CellContext`n$$], 
           $CellContext`ScaleTransform[$CellContext`p4, $CellContext`n$$]}], 
         Red, Thick, 
         Line[{
           $CellContext`ScaleTransform[$CellContext`p4, $CellContext`n$$], 
           $CellContext`ScaleTransform[$CellContext`p1, $CellContext`n$$]}]}, 
        Axes -> True, PlotRange -> {{0, 0.8}, {0, 0.8}}], 
      "Specifications" :> {{{$CellContext`n$$, 2, "\:500d\:6570"}, 0, 2}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {274., 281.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:53cd\:5c04", "Subchapter"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0"},
       {"0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ".", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"x"},
       {"y"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "x"}]},
     {"y"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ReflectTransform", "[", 
    RowBox[{"v_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"n", "0"},
         {"0", "1"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ".", 
     TagBox["v",
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p2", ",", "p3"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p3", ",", "p4"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p4", ",", "p1"}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
       "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ReflectTransform", "[", 
           RowBox[{"p1", ",", "n"}], "]"}], ",", 
          RowBox[{"ReflectTransform", "[", 
           RowBox[{"p2", ",", "n"}], "]"}]}], "}"}], "]"}], ",", "Red", ",", 
       "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ReflectTransform", "[", 
           RowBox[{"p2", ",", "n"}], "]"}], ",", 
          RowBox[{"ReflectTransform", "[", 
           RowBox[{"p3", ",", "n"}], "]"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ReflectTransform", "[", 
           RowBox[{"p3", ",", "n"}], "]"}], ",", 
          RowBox[{"ReflectTransform", "[", 
           RowBox[{"p4", ",", "n"}], "]"}]}], "}"}], "]"}], ",", "Red", ",", 
       "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ReflectTransform", "[", 
           RowBox[{"p4", ",", "n"}], "]"}], ",", 
          RowBox[{"ReflectTransform", "[", 
           RowBox[{"p1", ",", "n"}], "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.5"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]",
     "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", 
       RowBox[{"-", "1"}], ",", "\"\<\:500d\:6570\>\""}], "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]]
}, Open  ]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = -1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`n$$], -1, "\:500d\:6570"}, -1, 1}}, 
    Typeset`size$$ = {450., {123., 130.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$47585$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = -1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$47585$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{Thick, 
         Line[{$CellContext`p1, $CellContext`p2}], Thick, 
         Line[{$CellContext`p2, $CellContext`p3}], Thick, 
         Line[{$CellContext`p3, $CellContext`p4}], Thick, 
         Line[{$CellContext`p4, $CellContext`p1}], Red, Thick, 
         Line[{
           $CellContext`ReflectTransform[$CellContext`p1, $CellContext`n$$], 
           $CellContext`ReflectTransform[$CellContext`p2, $CellContext`n$$]}],
          Red, Thick, 
         Line[{
           $CellContext`ReflectTransform[$CellContext`p2, $CellContext`n$$], 
           $CellContext`ReflectTransform[$CellContext`p3, $CellContext`n$$]}],
          Red, Thick, 
         Line[{
           $CellContext`ReflectTransform[$CellContext`p3, $CellContext`n$$], 
           $CellContext`ReflectTransform[$CellContext`p4, $CellContext`n$$]}],
          Red, Thick, 
         Line[{
           $CellContext`ReflectTransform[$CellContext`p4, $CellContext`n$$], 
           $CellContext`ReflectTransform[$CellContext`p1, \
$CellContext`n$$]}]}, Axes -> True, PlotRange -> {{-0.5, 0.5}, {0, 0.5}}], 
      "Specifications" :> {{{$CellContext`n$$, -1, "\:500d\:6570"}, -1, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {177., 184.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5207\:53d8", "Subchapter"],

Cell["x = x + n y", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "n"},
       {"0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ".", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"x"},
       {"y"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"x", "+", 
       RowBox[{"n", " ", "y"}]}]},
     {"y"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ShearTransform", "[", 
    RowBox[{"v_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     TagBox[
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"1", "n"},
          {"0", "1"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ".", 
     TagBox["v",
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p2", ",", "p3"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p3", ",", "p4"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p4", ",", "p1"}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
       "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ShearTransform", "[", 
           RowBox[{"p1", ",", "n"}], "]"}], ",", 
          RowBox[{"ShearTransform", "[", 
           RowBox[{"p2", ",", "n"}], "]"}]}], "}"}], "]"}], ",", "Red", ",", 
       "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ShearTransform", "[", 
           RowBox[{"p2", ",", "n"}], "]"}], ",", 
          RowBox[{"ShearTransform", "[", 
           RowBox[{"p3", ",", "n"}], "]"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ShearTransform", "[", 
           RowBox[{"p3", ",", "n"}], "]"}], ",", 
          RowBox[{"ShearTransform", "[", 
           RowBox[{"p4", ",", "n"}], "]"}]}], "}"}], "]"}], ",", "Red", ",", 
       "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ShearTransform", "[", 
           RowBox[{"p4", ",", "n"}], "]"}], ",", 
          RowBox[{"ShearTransform", "[", 
           RowBox[{"p1", ",", "n"}], "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.4"}], ",", "0.8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.5"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]",
     "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", 
       RowBox[{"-", "1"}], ",", "\"\<\:957f\:5ea6\>\""}], "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]]
}, Open  ]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = -0.54, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`n$$], -1, "\:957f\:5ea6"}, -1, 1}}, 
    Typeset`size$$ = {450., {100., 106.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$47616$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = -1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$47616$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{Thick, 
         Line[{$CellContext`p1, $CellContext`p2}], Thick, 
         Line[{$CellContext`p2, $CellContext`p3}], Thick, 
         Line[{$CellContext`p3, $CellContext`p4}], Thick, 
         Line[{$CellContext`p4, $CellContext`p1}], Red, Thick, 
         Line[{
           $CellContext`ShearTransform[$CellContext`p1, $CellContext`n$$], 
           $CellContext`ShearTransform[$CellContext`p2, $CellContext`n$$]}], 
         Red, Thick, 
         Line[{
           $CellContext`ShearTransform[$CellContext`p2, $CellContext`n$$], 
           $CellContext`ShearTransform[$CellContext`p3, $CellContext`n$$]}], 
         Red, Thick, 
         Line[{
           $CellContext`ShearTransform[$CellContext`p3, $CellContext`n$$], 
           $CellContext`ShearTransform[$CellContext`p4, $CellContext`n$$]}], 
         Red, Thick, 
         Line[{
           $CellContext`ShearTransform[$CellContext`p4, $CellContext`n$$], 
           $CellContext`ShearTransform[$CellContext`p1, $CellContext`n$$]}]}, 
        Axes -> True, PlotRange -> {{-0.4, 0.8}, {0, 0.5}}], 
      "Specifications" :> {{{$CellContext`n$$, -1, "\:957f\:5ea6"}, -1, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {154., 161.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:65cb\:8f6c", "Subchapter"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"Cos", "[", "\[Theta]", "]"}], 
        RowBox[{"-", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]},
       {
        RowBox[{"Sin", "[", "\[Theta]", "]"}], 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ".", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"x"},
       {"y"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"x", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "-", 
       RowBox[{"y", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]},
     {
      RowBox[{
       RowBox[{"y", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", 
       RowBox[{"x", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"RotateTransform", "[", 
    RowBox[{"v_", ",", "\[Theta]_"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     TagBox[
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {
           RowBox[{"Cos", "[", 
            RowBox[{"\[Theta]", " ", "Degree"}], "]"}], 
           RowBox[{"-", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]", " ", "Degree"}], "]"}]}]},
          {
           RowBox[{"Sin", "[", 
            RowBox[{"\[Theta]", " ", "Degree"}], "]"}], 
           RowBox[{"Cos", "[", 
            RowBox[{"\[Theta]", " ", "Degree"}], "]"}]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ".", 
     TagBox["v",
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p2", ",", "p3"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p3", ",", "p4"}], "}"}], "]"}], ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{"p4", ",", "p1"}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
       "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RotateTransform", "[", 
           RowBox[{"p1", ",", "n"}], "]"}], ",", 
          RowBox[{"RotateTransform", "[", 
           RowBox[{"p2", ",", "n"}], "]"}]}], "}"}], "]"}], ",", "Red", ",", 
       "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RotateTransform", "[", 
           RowBox[{"p2", ",", "n"}], "]"}], ",", 
          RowBox[{"RotateTransform", "[", 
           RowBox[{"p3", ",", "n"}], "]"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RotateTransform", "[", 
           RowBox[{"p3", ",", "n"}], "]"}], ",", 
          RowBox[{"RotateTransform", "[", 
           RowBox[{"p4", ",", "n"}], "]"}]}], "}"}], "]"}], ",", "Red", ",", 
       "Thick", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RotateTransform", "[", 
           RowBox[{"p4", ",", "n"}], "]"}], ",", 
          RowBox[{"RotateTransform", "[", 
           RowBox[{"p1", ",", "n"}], "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.6"}], ",", "0.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.6"}], ",", "0.6"}], "}"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", 
       RowBox[{"-", "45"}], ",", "\"\<\:89d2\:5ea6\>\""}], "}"}], ",", 
     RowBox[{"-", "180"}], ",", "180"}], "}"}]}], "]"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]]
}, Open  ]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = -26.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{{
       Hold[$CellContext`n$$], -45, "\:89d2\:5ea6"}, -180, 180}}, 
    Typeset`size$$ = {450., {219., 224.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$47647$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = -45}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$47647$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{Thick, 
         Line[{$CellContext`p1, $CellContext`p2}], Thick, 
         Line[{$CellContext`p2, $CellContext`p3}], Thick, 
         Line[{$CellContext`p3, $CellContext`p4}], Thick, 
         Line[{$CellContext`p4, $CellContext`p1}], Red, Thick, 
         Line[{
           $CellContext`RotateTransform[$CellContext`p1, $CellContext`n$$], 
           $CellContext`RotateTransform[$CellContext`p2, $CellContext`n$$]}], 
         Red, Thick, 
         Line[{
           $CellContext`RotateTransform[$CellContext`p2, $CellContext`n$$], 
           $CellContext`RotateTransform[$CellContext`p3, $CellContext`n$$]}], 
         Red, Thick, 
         Line[{
           $CellContext`RotateTransform[$CellContext`p3, $CellContext`n$$], 
           $CellContext`RotateTransform[$CellContext`p4, $CellContext`n$$]}], 
         Red, Thick, 
         Line[{
           $CellContext`RotateTransform[$CellContext`p4, $CellContext`n$$], 
           $CellContext`RotateTransform[$CellContext`p1, $CellContext`n$$]}]},
         Axes -> True, PlotRange -> {{-0.6, 0.6}, {-0.6, 0.6}}], 
      "Specifications" :> {{{$CellContext`n$$, -45, "\:89d2\:5ea6"}, -180, 
         180}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {272., 279.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output"]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1600, 826},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
TrackCellChangeTimes->False,
Magnification:>1.25 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (2016\:5e7410\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 31, 0, 80, "Chapter"],
Cell[614, 24, 823, 25, 199, "Input"],
Cell[CellGroupData[{
Cell[1462, 53, 34, 0, 76, "Subchapter"],
Cell[1499, 55, 180, 2, 38, "Text"],
Cell[CellGroupData[{
Cell[1704, 61, 1399, 39, 92, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3106, 102, 684, 20, 55, "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3793, 124, 3536, 94, 466, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[7344, 221, 2617, 51, 575, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9998, 277, 34, 0, 76, "Subchapter"],
Cell[CellGroupData[{
Cell[10057, 281, 1423, 40, 92, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11483, 323, 652, 19, 55, "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[12138, 344, 3620, 96, 466, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[15773, 443, 2623, 52, 381, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18433, 500, 34, 0, 76, "Subchapter"],
Cell[18470, 502, 27, 0, 38, "Text"],
Cell[CellGroupData[{
Cell[18522, 506, 1399, 39, 92, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[19924, 547, 685, 20, 55, "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[20612, 569, 3693, 99, 466, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[24320, 671, 2617, 52, 335, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26974, 728, 34, 0, 76, "Subchapter"],
Cell[CellGroupData[{
Cell[27033, 732, 1596, 44, 92, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[28632, 778, 968, 28, 55, "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[29603, 808, 4107, 109, 466, "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[33725, 920, 2642, 52, 571, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

